﻿(*
  Скрипт тестинга библиотеки MyMathLib
*)

#r @"MyMathLib.dll"

open System
open FSL.FMathLib


/// Обёртка вызова функции теста компонента библиотеки. 
/// Форматирует вывод.
let CALL (Tf: unit -> unit) =
  printfn "-----------------------------------------------------------"
  Tf()
  printfn "-----------------------------------------------------------"

/// Тест работы класса FMathLib.Permutation.Permutator
let test_perm () =
  printfn "Тест класса Permutator:"
  let P = new FSL.FMathLib.Permutation.Permutator<int>(2, [0;1])
  let r = P.Words
  Seq.iter (printfn "%A") r
  ()

printfn "###########################################################"
printfn "Старт проверки функционала FMathLib..."

CALL test_perm

printfn "###########################################################"